home *** CD-ROM | disk | FTP | other *** search
/ Bandai Visual CD-ROM Previews 3 / Bandai Visual CD-ROM Previews 3.iso / LARTHUR'S LEGEND / Shared.dir / 00265_Script_265 < prev    next >
Text File  |  1995-02-07  |  11KB  |  286 lines
  1.  
  2. -----------------
  3. on itemwindow
  4.   
  5.   global itemset
  6.   if objectP (itemset) then
  7.     forget itemset
  8.   end if
  9.   set horzOrigin to the stageleft + 524
  10.   set vertorigin to the stagetop + 383
  11.   
  12.   set itemsetRect to rect (horzorigin , vertorigin , horzorigin + 112 , vertorigin + 84)
  13.   --set the windowType of window "itemcall" to 4
  14.   set itemset to window "itemcall"
  15.   set the rect of itemset to itemsetrect
  16.   set the fileName of itemset to "item"
  17.   set the titleVisible of itemset to FALSE
  18.   open itemset
  19. end
  20.  
  21.  
  22. -----------------
  23. on save
  24.   
  25.   global filer, FileIO, theFileName
  26.   global Mymovie , Myframe , Mypath , Mytempo , ch1vol , ch2vol , ch3vol , ch4vol , soundName
  27.   global itemset , itemflug , itemkind , itemuse , kind , itemxx , itemmax ,  countnum
  28.   global s02_00 , s03_00 , s04_00 , s05_00 , s07_00 , s15_00 , s16_00 , s25_00
  29.   global magic  , candol  , ken , mist , key , door , kame , takara , knock , pic  , kakusi , book, ryu 
  30.   global syack , peryu , ryato , furfur , harupas , bueru , karron , guruguru , puransy , rabis
  31.   global accado , kari , zagan , rusa , raum , misu , twice 
  32.   global enddummy
  33.   
  34.   put  the volume of sound 1 into ch1vol
  35.   put  the volume of sound 2 into ch2vol
  36.   put  the volume of sound 3 into ch3vol
  37.   put  the volume of sound 4 into ch4vol
  38.   
  39.   put the movie into Mymovie
  40.   put the frame into Myframe
  41.   put the moviePath into Mypath
  42.   put the frameTempo into Mytempo
  43.   
  44.   set enddummy = "fileend"
  45.   set theFilename = "Ryu Knight File"
  46.   set filer = FileIO(mNew, "?Write", theFilename)
  47.   if not objectp( filer ) then 
  48.     set theProblem = string( fileR )
  49.     if theProblem = -43 then
  50.       exit
  51.     else
  52.       alert "Failed Save." & return & "Error message number: " string ( filer )
  53.       exit
  54.     end if
  55.   end if
  56.   --put value (string(itemkind)) into itemxx
  57.   filer(mWritestring, "* Ryu Knight Data" & return)
  58.   filer(mWritestring, String(Mymovie) & return)
  59.   filer(mWritestring, String(Myframe) & return)
  60.   filer(mWritestring, String(Mypath) & return)
  61.   filer(mWritestring, String(Mytempo) & return)
  62.   filer(mWritestring, String(ch1vol) & return)
  63.   filer(mWritestring, String(ch2vol) & return)
  64.   filer(mWritestring, String(ch3vol) & return)
  65.   filer(mWritestring, String(ch4vol) & return)
  66.   filer(mWritestring, String(soundName) & return)
  67.   filer(mWritestring, String(itemset) & return)
  68.   filer(mWritestring, String(itemflug) & return)
  69.   filer(mWritestring, String(itemkind) & return)
  70.   filer(mWritestring, String(itemuse) & return)
  71.   filer(mWritestring, String(kind) & return)
  72.   filer(mWritestring, String(itemmax) & return)
  73.   filer(mWritestring, String(countnum) & return)
  74.   filer(mWritestring, String(s02_00) & return)
  75.   filer(mWritestring, String(s03_00) & return)
  76.   filer(mWritestring, String(s04_00) & return)
  77.   filer(mWritestring, String(s05_00) & return)
  78.   filer(mWritestring, String(s07_00) & return)
  79.   filer(mWritestring, String(s15_00) & return)
  80.   filer(mWritestring, String(s16_00) & return)
  81.   filer(mWritestring, String(s25_00) & return)
  82.   filer(mWritestring, String(magic) & return)
  83.   filer(mWritestring, String(candol) & return)
  84.   filer(mWritestring, String(ken) & return)
  85.   filer(mWritestring, String(mist) & return)
  86.   filer(mWritestring, String(key) & return)
  87.   filer(mWritestring, String(door) & return)
  88.   filer(mWritestring, String(kame) & return)
  89.   filer(mWritestring, String(takara) & return)
  90.   filer(mWritestring, String(knock) & return)
  91.   filer(mWritestring, String(pic) & return)
  92.   filer(mWritestring, String(kakusi) & return)
  93.   filer(mWritestring, String(book) & return)
  94.   filer(mWritestring, String(syack) & return)
  95.   filer(mWritestring, String(peryu) & return)
  96.   filer(mWritestring, String(ryato) & return)
  97.   filer(mWritestring, String(furfur) & return)
  98.   filer(mWritestring, String(harupas) & return)
  99.   filer(mWritestring, String(bueru) & return)
  100.   filer(mWritestring, String(karron) & return)
  101.   filer(mWritestring, String(guruguru) & return)
  102.   filer(mWritestring, String(puransy) & return)
  103.   filer(mWritestring, String(rabis) & return)
  104.   filer(mWritestring, String(accado) & return)
  105.   filer(mWritestring, String(kari) & return)
  106.   filer(mWritestring, String(zagan) & return)
  107.   filer(mWritestring, String(rusa) & return)
  108.   filer(mWritestring, String(raum) & return)
  109.   filer(mWritestring, String(misu) & return)
  110.   filer(mWritestring, String(twice) & return)
  111.   filer(mWritestring, String(enddummy) & return)
  112.   --filer(mWritestring, String(itemxx) & return)
  113.   filer(mDispose)
  114. end
  115.  
  116. ----------------------------------------------------------
  117. on SoundPlayChk fileName , chn
  118.   global soundName
  119.   set soundName = fileName
  120.   if  soundBusy(chn) = 0 then
  121.     sound playfile chn, fileName
  122.   end if
  123. end
  124. ---------------------------
  125. on itemclose
  126.   finishMovie
  127. end
  128. --------------
  129. on finishMovie
  130.   global itemset
  131.   if objectP(itemset) then
  132.     forget itemset
  133.   end if
  134. end
  135. ----------------
  136. on roadfile
  137.   global filer, FileIO, theFileName
  138.   global Mymovie , Myframe , Mypath , Mytempo , ch1vol , ch2vol , ch3vol , ch4vol , soundName
  139.   global itemset , itemflug , itemkind , itemuse , kind , itemxx , itemmax ,  countnum
  140.   global s02_00 , s03_00 , s04_00 , s05_00 , s07_00 , s15_00 , s16_00 , s25_00
  141.   global magic  , candol  , ken , mist , key , door , kame , takara , knock , pic  , kakusi , book, ryu 
  142.   global syack , peryu , ryato , furfur , harupas , bueru , karron , guruguru , puransy , rabis
  143.   global accado , kari , zagan , rusa , raum , misu , twice
  144.   global enddummy
  145.   
  146.   set filer = fileIO(mNew, "?read", "TEXT")
  147.   if not objectp(Filer) then exit
  148.   set firstline = filer(mReadline)
  149.   put firstline
  150.   if firstline starts "* Ryu Knight Data" then
  151.     clearGlobals
  152.     set xx = filer(mReadline)
  153.     set Mymovie = string(chars(xx,1,(length(xx)-1)))
  154.     set xx = filer(mReadline)
  155.     set Myframe = value(chars(xx,1,(length(xx)-1)))
  156.     set xx = filer(mReadline)
  157.     set Mypath = string(chars(xx,1,(length(xx)-4)))
  158.     set xx = filer(mReadline)
  159.     set Mytempo = value(chars(xx,1,(length(xx)-1)))
  160.     set xx = filer(mReadline)
  161.     set ch1vol = value(chars(xx,1,(length(xx)-1)))
  162.     set xx = filer(mReadline)
  163.     set ch2vol = value(chars(xx,1,(length(xx)-1)))
  164.     set xx = filer(mReadline)
  165.     set ch3vol = value(chars(xx,1,(length(xx)-1)))
  166.     set xx = filer(mReadline)
  167.     set ch4vol = value(chars(xx,1,(length(xx)-1)))
  168.     set xx = filer(mReadline)
  169.     set soundName = string(chars(xx,1,(length(xx)-1)))
  170.     set xx = filer(mReadline)
  171.     set itemset = string(chars(xx,1,(length(xx)-1)))
  172.     set xx = filer(mReadline)
  173.     set itemflug = string(chars(xx,1,(length(xx)-1)))
  174.     set xx = filer(mReadline)
  175.     set itemkind = [string(chars(xx,3,(length(xx)-4)))]
  176.     set xx = filer(mReadline)
  177.     set itemuse = string(chars(xx,1,(length(xx)-1)))
  178.     set xx = filer(mReadline)
  179.     set kind = string(chars(xx,1,(length(xx)-2)))
  180.     set xx = filer(mReadline)
  181.     set itemmax = string(chars(xx,1,(length(xx)-1)))
  182.     set xx = filer(mReadline)
  183.     set countnum = string(chars(xx,1,(length(xx)-1)))
  184.     set xx = filer(mReadline)
  185.     set s02_00 = string(chars(xx,1,(length(xx)-1)))
  186.     set xx = filer(mReadline)
  187.     set s03_00 = string(chars(xx,1,(length(xx)-1)))
  188.     set xx = filer(mReadline)
  189.     set s04_00 = string(chars(xx,1,(length(xx)-1)))
  190.     set xx = filer(mReadline)
  191.     set s05_00 = string(chars(xx,1,(length(xx)-1)))
  192.     set xx = filer(mReadline)
  193.     set s07_00 = string(chars(xx,1,(length(xx)-1)))
  194.     set xx = filer(mReadline)
  195.     set s15_00 = string(chars(xx,1,(length(xx)-1)))
  196.     set xx = filer(mReadline)
  197.     set s16_00 = string(chars(xx,1,(length(xx)-1)))
  198.     set xx = filer(mReadline)
  199.     set s25_00 = string(chars(xx,1,(length(xx)-1)))
  200.     set xx = filer(mReadline)
  201.     set magic = string(chars(xx,1,(length(xx)-1)))
  202.     set xx = filer(mReadline)
  203.     set candol = string(chars(xx,1,(length(xx)-1)))
  204.     set xx = filer(mReadline)
  205.     set ken = string(chars(xx,1,(length(xx)-1)))
  206.     set xx = filer(mReadline)
  207.     set door = string(chars(xx,1,(length(xx)-1)))
  208.     set xx = filer(mReadline)
  209.     set kame = string(chars(xx,1,(length(xx)-1)))
  210.     set xx = filer(mReadline)
  211.     set takara = string(chars(xx,1,(length(xx)-1)))
  212.     set xx = filer(mReadline)
  213.     set knock = string(chars(xx,1,(length(xx)-1)))
  214.     set xx = filer(mReadline)
  215.     set pic = string(chars(xx,1,(length(xx)-1)))
  216.     set xx = filer(mReadline)
  217.     set kakusi = string(chars(xx,1,(length(xx)-1)))
  218.     set xx = filer(mReadline)
  219.     set book = string(chars(xx,1,(length(xx)-1)))
  220.     set xx = filer(mReadline)
  221.     set ryu = string(chars(xx,1,(length(xx)-1)))
  222.     set xx = filer(mReadline)
  223.     set syack = string(chars(xx,1,(length(xx)-1)))
  224.     set xx = filer(mReadline)
  225.     set peryu = string(chars(xx,1,(length(xx)-1)))
  226.     set xx = filer(mReadline)
  227.     set ryato = string(chars(xx,1,(length(xx)-1)))
  228.     set xx = filer(mReadline)
  229.     set furfur = string(chars(xx,1,(length(xx)-1)))
  230.     set xx = filer(mReadline)
  231.     set harupas = string(chars(xx,1,(length(xx)-1)))
  232.     set xx = filer(mReadline)
  233.     set bueru = string(chars(xx,1,(length(xx)-1)))
  234.     set xx = filer(mReadline)
  235.     set karron = string(chars(xx,1,(length(xx)-1)))
  236.     set xx = filer(mReadline)
  237.     set guruguru = string(chars(xx,1,(length(xx)-1)))
  238.     set xx = filer(mReadline)
  239.     set puransy = string(chars(xx,1,(length(xx)-1)))
  240.     set xx = filer(mReadline)
  241.     set rabis = string(chars(xx,1,(length(xx)-1)))
  242.     set xx = filer(mReadline)
  243.     set accado = string(chars(xx,1,(length(xx)-1)))
  244.     set xx = filer(mReadline)
  245.     set kari = string(chars(xx,1,(length(xx)-1)))
  246.     set xx = filer(mReadline)
  247.     set zagan = string(chars(xx,1,(length(xx)-1)))
  248.     set xx = filer(mReadline)
  249.     set rusa = string(chars(xx,1,(length(xx)-1)))
  250.     set xx = filer(mReadline)
  251.     set raum = string(chars(xx,1,(length(xx)-1)))
  252.     set xx = filer(mReadline)
  253.     set misu = string(chars(xx,1,(length(xx)-1)))
  254.     set xx = filer(mReadline)
  255.     set twice = string(chars(xx,1,(length(xx)-1)))
  256.     --set xx = filer(mReadline)
  257.     -- set itemxx = string(chars(xx,3,(length(xx)-5)))
  258.     --set itemkid = [itemxx]
  259.     
  260.     
  261.     set the volume of sound 1 to ch1vol
  262.     set the volume of sound 2 to ch2vol
  263.     set the volume of sound 3 to ch3vol
  264.     set the volume of sound 4 to ch4vol
  265.     sound playfile 3 , soundName
  266.     go to frame Myframe of movie Mypath&MyMovie
  267.     puppettempo Mytempo
  268.     filer(mDispose)
  269.     updateStage
  270.     exit
  271.   else
  272.     alert "ﾇｱﾇﾍﾇﾕﾇｱﾇﾃﾉQﾅ[ﾉﾄﾇﾃﾉfﾅ[ﾉ^ﾇｼﾇﾕﾇ☞ﾋﾇ局™ﾇﾒ"
  273.     filer(mDispose)
  274.   end if
  275. end
  276.  
  277.  
  278. ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@ﾅ@
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.